CDUTIL 13/CDUTIL #13 Julio 1995.iso/windows/amipro3/macros.cmz/SMARTPIC.SMM

INI File | 1992-11-18 | 5.2 KB | 387 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT2:
[lang]
    1
[desc]
    Acceso directo a SmartPics Sampler de Lotus. Asigne el icono personalizado correspondiente para acceder directamente.
    Lotus WPD Marketing
    Beginner
    Exec, AppMinimize

    714877633
    10
    681240805
    14
    2
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[tag]
    Est<\a>ndar
    5
    [fnt]
        Tms Rmn
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        17
        0
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        24
        1
        2
        ,
        .
        Pts
    Est<\a>ndar
    0
    0
[l1]
    0
[pg]
    2
    49 0 12 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    73 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#293,9025>Macro by <+!>Charlie Pappas<-!>

<:#293,9025>Editted by <+!>Mike Jones<-!>

<:#279,9025>

<:#279,9025>function execsuite()

<:#279,9025>app = "smartpic.exe"

<:#279,9025>appname = "SmartPics Sampler"

<:#279,9025>defdir = "c:\smartpic"

<:#279,9025>ignorekeyboard(1)

<:#279,9025>declare missouri(xapp)

<:#279,9025>declare getprofile(xappname)

<:#279,9025>declare writeprofile(path, xappname)

<:#279,9025>declare tryit(path, xapp)

<:#279,9025>defstr path;

<:#279,9025>

<:#279,9025>if appisrunning(appname)

<:#279,9025>    activateapp(appname)

<:#279,9025>    apprestore(appname)

<:#279,9025>    return 1

<:#279,9025>endif

<:#279,9025>if 0 = doschdir(defdir)

<:#279,9025>    if tryit("", app) <;> 31

<:#279,9025>        return 1

<:#279,9025>    endif

<:#279,9025>endif

<:#279,9025>if tryit(getprofile(appname), app) <;> 31

<:#279,9025>    return 1

<:#279,9025>endif

<:#279,9025>again:

<:#279,9025>if assign(&path, missouri(app)) <<<;> 0

<:#279,9025>    if tryit(path, app) <;> 31

<:#279,9025>        writeprofile(path, appname)

<:#279,9025>    else

<:#279,9025>        goto again

<:#279,9025>    endif

<:#279,9025>endif

<:#279,9025>end function

<:#279,9025>

<:#279,9025>function tryit(path, app)

<:#279,9025>doschdir(path)

<:#279,9025>return exec(strcat$(path, app), "")

<:#279,9025>end function

<:#279,9025>

<:#279,9025>function writeprofile(path, appname)

<:#279,9025>writeprofilestring("LotusApps", appname, path, "amipro.ini")

<:#279,9025>end function

<:#279,9025>

<:#279,9025>function getprofile(appname)

<:#279,9025>return getprofilestring$("LotusApps", appname, "amipro.ini")

<:#279,9025>end function

<:#279,9025>

<:#279,9025>function missouri(app)

<:#279,9025>defstr box;

<:#279,9025>filledit(9001, "*.exe")

<:#279,9025>filledit(8007, app)

<:#279,9025>if assign(&box, dialogbox(".", "findapp")) <<<;> 1

<:#279,9025>    return 0

<:#279,9025>endif

<:#279,9025>return getcurrentdir$()

<:#279,9025>end function

<:#279,9025>

<:#279,9025>

<:#279,9025>DIALOG findapp

-2134376448 7 70 35 200 97 "" "" "B<\z>squeda de la aplicaci<\s>n"

<:#279,9025>FONT 8 "Helv"

7 34 59 8 1000 1342177280 "static" "&V<\m>a de acceso:" 0

<:#279,9025>6 45 60 44 9001 1352728579 "listbox" "" 0

155 5 40 14 1 1342373889 "button" "Aceptar" 0

155 21 40 14 2 1342373888 "button" "Cancelar" 0

<:#279,9025>68 34 80 8 7999 1342177280 "static" "" 0

7 6 142 9 1006 1342177280 "static" "Seleccione el directorio donde se halla" 0

<:#279,9025>7 16 107 8 8007 1342177280 "static" "" 0

<:#279,9025>END DIALOG

<:#279,9025>

>

[Embedded]
00003732
>
[macsum] 6
execsuite 0 0 5 3
tryit 534 2 1 37
writeprofile 615 2 1 42
getprofile 688 1 1 46
missouri 764 1 2 50
findapp 921 0 -1 61
[macse]
14 execsuite
7 "smartpic.exe"
8 1
7 "SmartPics Sampler"
8 2
7 "c:\smartpic"
8 3
0 32 1
0 1032 "{2}"
13
11 00000164
0 38 "{2}"
0 1031 "{2}"
5 1
15
9
5 0
0 781 "{3}"
13
18 0
11 00000265
16 tryit "" "{1}"
13
5 31
18 3
11 00000265
5 1
15
9
16 getprofile "{2}"
13
16 tryit [X] "{1}"
13
5 31
18 3
11 00000351
5 1
15
9
16 missouri "{1}"
13
0 805 &4 [X]
13
5 0
18 1
11 00000522
16 tryit "{4}" "{1}"
13
5 31
18 3
11 00000509
16 writeprofile "{4}" "{2}"
10 00000522
10 00000351
6 0
15
9
14 tryit
0 781 "{0}"
0 16 "{0}" "{1}"
13
0 22 [X] ""
13
15
9
6 2
15
9
14 writeprofile
0 287 "LotusApps" "{1}" "{0}" "amipro.ini"
6 2
15
9
14 getprofile
0 286 "LotusApps" "{0}" "amipro.ini"
13
15
9
6 1
15
9
14 missouri
0 31 9001 "*.exe"
0 31 8007 "{0}"
0 26 "." "findapp"
13
0 805 &2 [X]
13
5 1
18 1
11 00000127
5 0
15
9
0 290
13
15
9
6 1
15
9
DIALOG findapp
-2134376448 7 70 35 200 97 "" "" "B·squeda de la aplicaci≤n"
FONT 8 "Helv"
7 34 59 8 1000 1342177280 "static" "&Vφa de acceso:" 0
6 45 60 44 9001 1352728579 "listbox" "" 0
155 5 40 14 1 1342373889 "button" "Aceptar" 0
155 21 40 14 2 1342373888 "button" "Cancelar" 0
68 34 80 8 7999 1342177280 "static" "" 0
7 6 142 9 1006 1342177280 "static" "Seleccione el directorio donde se halla" 0
7 16 107 8 8007 1342177280 "static" "" 0
00003757